unit UnDatamodule;

interface

uses
  SysUtils, Classes, DB, DBClient, SOAPConn;

type
  TDmDataSets = class(TDataModule)
    ConnLoginBeheerder: TSoapConnection;
    CdsLoginBeheerder: TClientDataSet;
    CdsBeheerder: TClientDataSet;
    CdsLoginBeheerderID: TAutoIncField;
    ConnBeheerder: TSoapConnection;
    ConnModuleBeheer: TSoapConnection;
    CdsModulebeheer: TClientDataSet;
    CdsBeheerderID: TAutoIncField;
    CdsBeheerderGEBRUIKERS_ID: TIntegerField;
    CdsConfiguratie: TClientDataSet;
    CdsSensorTypes: TClientDataSet;
    CdsConfiguratieID: TAutoIncField;
    CdsConfiguratieTYPE_1: TIntegerField;
    CdsConfiguratieINTERVAL_1: TIntegerField;
    CdsConfiguratieTYPE_2: TIntegerField;
    CdsConfiguratieINTERVAL_2: TIntegerField;
    CdsConfiguratieTYPE_3: TIntegerField;
    CdsConfiguratieINTERVAL_3: TIntegerField;
    CdsConfiguratieTYPE_4: TIntegerField;
    CdsConfiguratieINTERVAL_4: TIntegerField;
    CdsConfiguratieTYPE_5: TIntegerField;
    CdsConfiguratieINTEGER_5: TIntegerField;
    CdsConfiguratieTYPE_6: TIntegerField;
    CdsConfiguratieINTEGER_6: TIntegerField;
    ConnSensorTypeBeheer: TSoapConnection;
    CdsSensorTypesID: TAutoIncField;
    CdsSensorTypesNAAM: TStringField;
    CdsSensorTypesFORMULE: TBlobField;
    ConnOnderzoekBeheer: TSoapConnection;
    CdsOnderzoekbeheer: TClientDataSet;
    CdsOnderzoekbeheerID: TAutoIncField;
    CdsOnderzoekbeheerNAAM: TStringField;
    CdsOnderzoekbeheerSTART_DATUM: TDateTimeField;
    ConnLokatiebeheer: TSoapConnection;
    CdsLokatieBeheer: TClientDataSet;
    CdsLokatieBeheerID: TAutoIncField;
    CdsLokatieBeheerNAAM: TStringField;
    CdsLokatieBeheerLOKATIE_TYPE_ID: TIntegerField;
    CdsModulebeheerTblModuleConfiguratue: TDataSetField;
    CdsConfiguratieMODULE_ID: TIntegerField;
    ConnLokatieTypen: TSoapConnection;
    CdsLokatieTypen: TClientDataSet;
    CdsLokatieTypenID: TAutoIncField;
    CdsLokatieTypenNAAM: TStringField;
    ConnOnderzoekers: TSoapConnection;
    CdsOnderzoekers: TClientDataSet;
    ConnGebruikers: TSoapConnection;
    CdsGebruikers: TClientDataSet;
    CdsGebruikersID: TAutoIncField;
    CdsGebruikersVOLLEDIGE_NAAM: TStringField;
    CdsOnderzoekersID: TAutoIncField;
    CdsOnderzoekersGebruikers_ID: TIntegerField;
    CdsOnderzoekersOnderzoek_ID: TIntegerField;
    CdsOnderzoekersGebruikersNaam: TStringField;
    CdsOnderzoekersOnderzoeksNaam: TStringField;
    CdsBeheerderNAAM: TStringField;
    CdsModulebeheerID: TAutoIncField;
    CdsModulebeheerNUMMER: TIntegerField;
    CdsModulebeheerLOKATIE_ID: TIntegerField;
    CdsModulebeheerONDERZOEKS_ID: TIntegerField;
    CdsConfiguratieSTAMP: TDateTimeField;
    CdsConfiguratieSEQUENCE: TIntegerField;
    procedure CdsModulebeheerAfterPost(DataSet: TDataSet);
    procedure CdsModulebeheerReconcileError(DataSet: TCustomClientDataSet;
      E: EReconcileError; UpdateKind: TUpdateKind;
      var Action: TReconcileAction);
    procedure CdsOnderzoekbeheerAfterInsert(DataSet: TDataSet);
    procedure CdsOnderzoekbeheerBeforeRefresh(DataSet: TDataSet);
    procedure CdsOnderzoekbeheerReconcileError(DataSet: TCustomClientDataSet;
      E: EReconcileError; UpdateKind: TUpdateKind;
      var Action: TReconcileAction);
    procedure CdsLokatieTypenBeforeRefresh(DataSet: TDataSet);
    procedure CdsLokatieBeheerBeforeRefresh(DataSet: TDataSet);
    procedure CdsSensorTypesBeforeRefresh(DataSet: TDataSet);
    procedure CdsModulebeheerBeforeRefresh(DataSet: TDataSet);
    procedure CdsBeheerderBeforeRefresh(DataSet: TDataSet);
    procedure CdsLoginBeheerderBeforeRefresh(DataSet: TDataSet);
  private
  public
  end;

var
  DmDataSets: TDmDataSets;

implementation

{$R *.dfm}


procedure TDmDataSets.CdsBeheerderBeforeRefresh(DataSet: TDataSet);
begin
  TClientDataSet(Dataset).ApplyUpdates(0);
end;

procedure TDmDataSets.CdsLoginBeheerderBeforeRefresh(DataSet: TDataSet);
begin
TClientDataSet(Dataset).ApplyUpdates(0);
end;

procedure TDmDataSets.CdsLokatieBeheerBeforeRefresh(DataSet: TDataSet);
begin
  TClientDataSet(Dataset).ApplyUpdates(0);
end;

procedure TDmDataSets.CdsLokatieTypenBeforeRefresh(DataSet: TDataSet);
begin
  TClientDataSet(Dataset).ApplyUpdates(0);
end;

procedure TDmDataSets.CdsModulebeheerAfterPost(DataSet: TDataSet);
begin
  TClientDataSet(DataSet).applyUpdates(0);
end;

procedure TDmDataSets.CdsModulebeheerBeforeRefresh(DataSet: TDataSet);
begin
  TClientDataSet(Dataset).ApplyUpdates(0);
end;

procedure TDmDataSets.CdsModulebeheerReconcileError(
  DataSet: TCustomClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind;
  var Action: TReconcileAction);
begin
  sleep(0);
end;

procedure TDmDataSets.CdsOnderzoekbeheerAfterInsert(DataSet: TDataSet);
begin
  CdsOnderzoekbeheerSTART_DATUM.AsDateTime := now;
end;

procedure TDmDataSets.CdsOnderzoekbeheerBeforeRefresh(DataSet: TDataSet);
begin
  if CdsOnderzoekbeheer.ChangeCount > 0 then
  CdsOnderzoekbeheer.ApplyUpdates(0);
end;

procedure TDmDataSets.CdsOnderzoekbeheerReconcileError(
  DataSet: TCustomClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind;
  var Action: TReconcileAction);
begin
  sleep(0);
end;

procedure TDmDataSets.CdsSensorTypesBeforeRefresh(DataSet: TDataSet);
begin
  TClientDataSet(Dataset).ApplyUpdates(0);
end;

end.
